home *** CD-ROM | disk | FTP | other *** search
/ Informática Multimedia 1995 April / Informatica Multimedia CD - Epimundo.iso / DOS / FILE_CHG / AWK.ZIP / DEARC.AWK < prev    next >
Encoding:
Text File  |  1988-06-07  |  123 b   |  11 lines
  1. $1=="-ARCHIVE-" {
  2.     if (file)
  3.         close(file)
  4.     file = $2
  5.     print file
  6.     next
  7. }
  8. {
  9.     print > file
  10. }
  11.